home *** CD-ROM | disk | FTP | other *** search
/ Aminet 16 / Aminet 16 (1996)(GTI - Schatztruhe)[!][Dec 1996].iso / Aminet / dev / lang / uc_0_30.lha / u / tca / tc0025.ua < prev    next >
Text File  |  1996-10-30  |  642b  |  58 lines
  1. `**********************
  2. `* P R O J E C T  < U >
  3. `*
  4. `* Author and copyright
  5. `* (c) 1996
  6. `* Paul van der Valk
  7. `*
  8. `* file: tc0025.ua
  9. `*
  10. `* Reworked version of tc0008
  11. `* Tests multiple instructions per line
  12.  
  13. #1 .H 2 0 0 0
  14. #2 .M "tc0025" 20 0 0 0
  15.  
  16. #20 >50 .c 1 21
  17. #21 .s "(100 == 99) = "
  18.  
  19. #22 >51 .c 4 23
  20. #23 @eq 24 25
  21. #24 .n 100
  22. #25 .n 99
  23.  
  24. #29 >30 .c 3 0
  25.  
  26.  
  27. #30 >52 .c 1 31
  28. #31 .s "(100 == 100) = "
  29.  
  30. #32 >53 .c 4 33
  31. #33 @eq 34 35
  32. #34 .n 100
  33. #35 .n 100
  34.  
  35. #39 >40 .c 3 0
  36.  
  37.  
  38. #40 >54 .c 1 41
  39. #41 .s "(100 == 101) = "
  40.  
  41. #42 >55 .c 4 43
  42. #43 @eq 44 45
  43. #44 .n 100
  44. #45 .n 101
  45.  
  46. #49 .c 3 0
  47.  
  48. #50 >22 ./
  49. #51 >29 ./
  50.  
  51. #52 >32 ./
  52. #53 >39 ./
  53.  
  54. #54 >42 ./
  55. #55 >49 ./
  56.  
  57.  
  58.